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ABSTRACT 


This paper presents the development of an animated 
graphical computer simulation of an air defense 
scenario. In particular, the air defense scenario 
consists of a variable number of attackers, pictured as 
airplanes and a variable number of defenders, pictured 


as air defense artillery tanks. The simulation allows 


choosing between two different target assignment 
protocols. Protocol 1 simulates a random target 
assignment, where every defender selects a target at 
random to shot at. Protocol 2 simulates a controlled 
target assignment, where the defenders are assigned to 


Povo teana COomtimue to track the target umtill a kill 
is made. The simulation is written in BASICA, uses an 
IBM Personal Computer (IBM PC) and requires a color 


monitor and a color/graphics adapter card. 
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I. INTRODUCTION 


Microcomputers are used more and more frequently 
for the simulation of all kinds of statistical proces- 
ses. In military studies different combat situations 
which do not follow standard stochastic processes have 
been simulated. Simulations are also often used to 
manifest numerical results, even when a nice mathemati- 
cal closed form could have been derived. 

This paper describes the development of a computer 
simulation for an air defense scenario. In a typical 
computer simulation mathematical and logical relation- 
ships are used to create a real world model. In this 
development an animated graphical simulation was chosen 
to demonstrate the possibility of not only running a 
simulation and giving several numbers as an output, but 
also showing the actual occurrence of the battle as 
animated pictures on the screen. This gives the user 
direct insight into what is happening in the simulation 
without many hard-to-understand explanations. 

The intent was not to solve a very tricky combat 
simulation, but rather to show some of the possibili- 


ties of what a computer simulation can look like. 


This paper is one of several efforts at the Naval 
Postgraduate School to present various stochastic pro- 
cesses as animated graphical simulations, using an IBM 
Personal Computer (IBM PC-XT). Prior developments were: 
the simulation of several Poisson Process Models [Ref. 
1], the simulation of a Machine-Repairman Model [Ref. 
2] and the simulation of a Jackson Queue Network Model 
[Ref. 3]. These developments were a close guide and 
presented many ideas for this paper to follow ina 
series of animated graphical simulations for education- 


al purposes. 


A. DISCUSSION 
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The attackers fly from right to left in the top- 
section of the screen and are drawn as an airplane 
formation, for which the user can choose between one 
and nine Airplanes. 

The simulation model actually consists of two Air 
Defense scenarios with two different target assignment 


protocols. 


1. Assignment Protocol 1 

Protocol 1 is the simulation of a random target 
assignment, where the defender randomly chooses a 
target for every shot he fires. It is meant to bea 
demonstration of the real world situation, where no 
communication among the defenders exists and all 
defending resources are used to shoot. It will be 
discovered that there are a number of multiple hits on 
the same aircraft because of the lack of a controlled 
target assignment. This will reduce the percentage of 
kills per shot, especially when there are more defend- 
ers shooting and there are less attackers to intercept 
as well as when the hit probability for every defender 
is high. 


2. Ass ileonmens Prewocod 2 
Protocol 2 is the simulation of a controlled 
target assignment, where each defender is assigned to a 
different target and holds onto it until a kill is 


mage. Afver hitting his target, the defender is given a 


new target assignment. This is done until there are no 
unassigned targets remaining. Having only as_ many 
defenders shooting as there are targets remaining will 
result in saving defense resources. There will be no 
multiple assignments and, therefore, no multiple hits. 
The percentage of kills per shot will, in the long run, 
reach the hit probability chosen for the simulation. It 
reflects the real world situation where there is 
communication between the defender and the command 
control for target assignments. 
3. Model Assumptions 

Both protocols are simulated and run indepen- 
dently, as chosen by the user, and are shown on the 
same type of screen [Figure 1]. Several assumptions are 
made to simplify the model: 

- After a target formation has shown up on the 
screen, the time elapsed from detecting the targets 
to the actual shot is equal for all defenders. The 
user can enter this as the acquisition time at the 
beginning of the simulation run. The time during 
which the attackers are exposed to the defenders is 
also constant and can be determined by the user as 
the exposure time. This means that, when the 
acquisition time is higher than or equal to the 
exposure time, no shot can be fired by the defend- 


ers and all airplanes will survive. 
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- Having fired at a target there is no delay before 


the defender is able to fire again, even when there 
is a new target assignment. This is not quite true 
in the real world, but the incorporation of a delay 
would have slowed down the graphic simulation and 
the result would have been the same. This is be- 
cause the simulation runs only in relative time 
units. 

When an airplane is hit for the first time, it is 
considered a kill. A second hit within the same 
time unit is not counted as a kill, but as a 
multiple hit. 

The purpose of a simulation is to estimate some 
arameters or the relationships between parameters. 
Therefore, the simulation is repeated several times 
and data is collected to estimate the real world 
relationships. This simulation model executes one 
attack after the other without any delay between 
the attacks in order to allow the simulation to be 
run the desired number of attacks without unneces- 


sary intervention by the user. 
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B. MODEL ESTIMATORS 

The following paragraph explains the model esti- 
mators, how they are defined and how they are calcu- 
lated from the simulation parameters. 

After the completion of the desired number of 
attacks the program will show a list of numerical or 
graphical statistics. They are based on: 

- the number of surviving airplanes 

- the number of kills made 

- the number of multiple hits made 

- the number of shots fired by the defenders 

- the number of attacks actually flown 

- the number of time units from the first appearance 
of the attackers until the last airplane in the 
particular formation was killed. 

1. Average Number of Shots per Attack 

The number of shots which are fired at the 
attacker between the end of the acquisition time and 
the end of the attack (when all attackers are killed or 
the exposure time has expired) are counted. To be able 
to compare this number to other simulation iterations, 
it is not printed as the total number of shots, but 
instead as the average number of shots per attack and 


is calculated as: 


Lec 


total # of shots 
Avg # of shots/attack = ----------------- 


# of attacks 


iC Meane ln oitloammumnmer is, the less effective 
the defense is. It will take on values between the # of 
attackers and the # of defenders * (exposure time- 
ac@uisition time), 1.é€. 1 to 1400. 

2. Average Number of Kills per Attack 

The average number of kills in every attack is 
also a direct measurement of the effectiveness of the 
Getemse. [Tt is calculated as: 


#%# of hits - ¥ of mult. hits 
Avg # of kills/attack =--------------------------- 


# of attacks 

Pt will be U0, when no attacker is killed and 
will be equal to the # of attackers when the defense 
has its highest effectiveness. 

o- Average Mumber of Multiple Hits per Attack 

In cases where an airplane is hit more than 
once by the defenders within the same time unit, the 
aeeerane TS kaeerca=yy the = first hit. All additional 
hits are considered as multiple hits. This is only 
possible under protocol 1 (random assignments), because 
in protocol 2 (controlled assignments) multiple hits 


are specifically avoided. It is computed as: 
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- # of multiple hits 
Ave # of multi. hits/attack === == === eo 
# of attacks 


This average number depends’ greatly ong eke 
number of attackers and defenders as well as on the 
desired hit probability. Clearly, as more defenders 
shoot against less attackers with a higher hit probabi- 
lity, the higher the number of multiple hits will be. 

4. Average Number of Survivors per Attack 

Establishing the number of surviving airplanes 
at the end of their exposure time will give a direct 
measurement of the effectiveness of the defense. In 
order to compare this number with other attacks, the 
average number of survivors per attack is computed as: 

# of survivors 
Avg # of survivors/attack = -------------- 
# of attacks 

The values are between Zero and the number of 
attackers. 

5. Average Number of Kills per Shot 

Related to the theoretical probability of 
hitting an attacker is the computed average number of 
kills per shot. In the case of protocole2. tuece snan— 
bers should be similar. But in the case of protocol 1, 


Where multiple hits will occur, the average number of 
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kills per shot will be less than the probability of 


hit. It is computed as: 


# of hits - # of add. hits 
Peo) Totes) sito ee 


# of shots 
The values will range from Zero to approximate- 
ly the theoretical probability of hit. 
oe Amemagers Time untilethe Hast Attackereis Killed 
The time unit in which the last attacker was 
killed is the actual end of the attack. It is recorded 
as the acquisition time plus the time the attack lasts. 
The minimum value would be the acquisition time and the 
maximum value would be the exposure time. 
7. Percentage of Successful Interceptions 
The opposite of the average number of survivors 
per attacker is the average number of successful 


interceptions. It is derived as follows: 


# of survivors 
Avg # of interceptions = 1 - -------------- 
# of attackers 

Multiplying the Average number of interceptions 


by 100 gives the percentage of successful intercep- 


tions. This value ranges from 0 to 100. 
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IIlIil. THE SIMULATION 


Ae tHE COMPUILER 

The computer used for this graphic simulation is an 
IBM Personal Computer (IBM-PC) or a 100% IBM-PC 
compatible clone. In order to run the simulation, one 
of these computers must be equipped with a 
Color/Graphics adapter, a color monitor, at least 1 
floppy disk drive, and at least 128k-bytes of random 
access memory (RAM). All computers must be able to use 
IBM Advanced Basic (BASICA) in MS-DOS or PC-DOS, which 
requires the IBM BASIC ROM chip set. If the computer is 
not equipped with these chips, it must be capable of 
running a generic Version of BASICA, such as GW-BASIC 
from Microsoft. The simulation runs at a microprocessor 
clock speed of 4.77 MHZ, 6 MHz, 8 MHZ or’ even higher. 
On computers with a higher clock speed, the simulation 
will run faster, which will shorten the required 
Simulation run time when large numbers of attacks are 
desired. The simulation program, AIRDEF, was written 
using the MS-DOS disk operating system Version 3.2, but 
any MS-DOS or PC-DOS Version developed after Version 
oo) Wii work. However, the simulation directly 
interacts with the disk operating system and, there- 


fore, no guarantee may be given, that the simulation 
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Siti rem on other than IBM-PC or 100% IBM-PC compatible 


computers. 


B. THE PROGRAMMING LANGUAGE 

AIRDEF is written in IBM Advanced Basic (BASICA), 
which is the programming language supplied with PC-DOS 
or MS-DOS. Other Versions like GW-BASIC from Microsoft 
Will also work. BASICA, the language version used isa 
strictly interpreted language and is, therefore, much 
slower than compiled languages, such as TURBO BASIC 
from Borland or QuickBASIC from Microsoft. To follow 
the previous developments of graphical simulation 
packages at the Naval Postgraduate School the inter- 
preted language BASICA was’ preferred. This is due to 
the fact that speed is not important in this simula- 
bitten. The user needs t£o be able to follow the events on 
semeen. easily. 

The RND Function in BASICA does not satisfactorily 
produce random numbers [Ref. 2]. Therefore, the sub- 
routine RNGEN.SRT, written in 8088 assembly language, 
was used to produce the random numbers needed for this 
simubation. During the development of the simulation 
program, it was discovered that the uniformity of the 
random numbers, generated with RNGEN.SRT, improves when 
generating more than approximately 30 random numbers, 


compared to the built-in RND Function using the default 
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seed. Due to the fact that™nmormalily more hanes) rancom 
numbers will be generated, even in a short run of the 
simulation, the RNGEN.SRT was used. A subroutine to 
change the random number generator seed of RNGEN.SRT is 
also implemented in the simulation program and is 


easily accessible from the main menu. 


C. THE PROGRAM STRUCTURE 


The program listing for AIRDEF.BAS is supplied in 


Appendix B. The program is structured in several 
subroutines, to allow an easy pursuing of the steps 
taken in the simulation. The subroutines and modules 
are: 


- BASICA and Color/Graphic card check 
=" print Title Screecm 

- load RNGEN.SRT 

- change random number generator seed 
- print Main Menu 

- default simulation parameter 

- change simulation parameter 

- capture keyboard response 

- data for attacker screen coordinates 
- print numericalestarieure 

- print graphical statistic 


= protocol TIT sequence 
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- protocol 2 sequence 


- @€6@it the program 


D. THE PROGRAM DESCRIPTION 

Yme simulation of the air defense scenario is 
animated on the graphical display [Figure 1]. After the 
desired number of attacks are completed the statistics 
are displayed ona rmumerical statistics display or a 
graphical statistics display. It depends on the user’s 
respemse as te which display is prefered for the 
presentatiom on the screen. 

After the program is started, it reserves 16k bytes 
of the memory for variables and it dimensions the 
graphical arrays. A check is made whether BASICA or a 
compatibhe Basic is used and whether a.color/graphics 
mMOnLtoOr adaptor card is twestalled correctly in the 
computer by checking specific flags in the memory map 
of the computer. 

The first observed screen is the title screen and 
after pressing any key, the RNGEN.SRT is loaded into 
the memory and the main program menu will be displayed 
on the screen. The user then has several options: 

- start with default parameters and Protocol 1 
- start with default parameters and Protocol 2 


- change the simulation parameters 
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- set the random number generator seed or 
- end the program. 

Some of the more administrative programming tasks 
have been adopted in part, or in whole, from the 
programs written by R.E. Nelson [Ref. 1] or G.F. Green 
[Ref. 2] in order to fit into the series of animated 
graphic simulations already available. 

After the simulation has been started, the main 
graphics screen is drawn and an airplane (as attacker), 
an artillery tank (as defender), a shooting cloud and a 
fireball are drawn and saved into an array. Depending 
on the desired number of defenders and attackers, the 
line of defenders is drawn at the bottom of the screen, 
and the appropriate formation of attackers is drawn at 
the top of the screen and stored into an array. 

Following some initial settings of attribute values 
of the defender/attacker assignment, the formation of 
airplanes starts moving from right to left. The set 
time units for acquisition will pass before the de- 
fenders begin shooting at their targets, in accordance 
with their assignment protocol 1 or 2. The speed of the 
formation is computed from the total exposure time and 
transformed to increments in pixels on the screen. The 
higher the speed of the formation, the more pixels the 
formation is advanced. The speed limitations, and, 


therefore, the limitations on the exposure time are 
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given by a resolution of 320 pixels horizontally in the 
medium resolution graphic mode and the width of the 
formation of 120 pixels. This yields a maximum of 200 
pixels which the formation can travel, and, therefore, 
200 time units of exposure. The width of a single 
attacker is 30 pixels and yields the minimum time units 
of the exposure time. 

If protocol 1 is selected, all defenders shoot at 
the same time. A uniformly distributed random number 
between 0 and 1 is drawn for each shot and for every 
defender and compared to the set probability of hitting 
a target. The single shot of each defender’ is con- 
Sidered a hit when the random number is less than the 
probability of a hit. A new random number’ is drawn and 
Cemvertee £€O >a unifowmm distribution between 1 and the 
Number Of attackers, for the selection of a target from 
the remaining attackers. If the selected target is 
still there, the hit is considered a kill and the 
target is removed from the formation by placing a 
fireball in its place. If the target has already been 
nee by eea previous defender, within the same time unit, 
the hit is considered a multiple hit and a fireball is 
placed on the former coordinates of the target, to 
visualize the multiple hit. After storing the new 
formation, the time is increased by the number of 


units, according to the speed of the formation. If it 


ek 


is determined by the random number generator that there 
has been no hit the time is increased immediately, 
without going through the above computations. 

If protocol 2 is selected, a fixed defender- 
target assignment is issued at the beginning of the 
attack (e.g. defender No 1 is assigned to target No 1, 
defender No 2 is assigned to target No 2 and so forth). 
Those defenders with an assignment will shoot and, 
depending on a random number, the shot is determined as 
hit or no hit. Jf it was a hit, the target is killed by 
removing it from the screen with a fireball, and the 
defender gets a new assignment as long as there are 
unassigned targets remaining. No double assignments are 
issued, which is more realistic and saves defending 
resources. The defender is immediately ready for the 
Hex tt (smo c. 

In both protocols hits are also characterized by an 
audible beep. The attack ends, when the formation has 
reached the left side of the screen or when all 
airplanes have been killed. The aircraft reaching the 
left side of the screen are counted as survivors and 
the time units elapsed from the beginning to the end of 
the attack are summed up over all attacks. These 
variables are used to compute the statistics at the end 


of the simulation. 
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= THE STATISTICS SCREENS 

At the end of the simulation, when all desired 
attacks have been flown, the program will ask whether a 
numerical -or a graphical representation of the statis- 
tics is preferred. 

i. The Mamerical Statistics screen 

The «iterical statistics ‘screen [Figure 2] 

contains the averages computed from the empirical 
values of the simulation variables. They are related to 
the simulation parameters, which are also primtea 1h 


the top section of the screen. 


PROTOCOL 1 with 1G ATTACKS 
Attackers Exposure time: 
Defenders Acqulsit.time: 
Hitprob. 

shots/attack 
Avg No of kills/attack 
Avg No of mult. hits/attack 
Avg No of suryvivors/attack 
Avg No of kills/shot 


Avg time to last survivor 


ao eee 


<Grraphical statistic <Coontinue <Qoulti 





Figure 2. Numerical Statistics 


as 


The user has a choice of: 
(a) switching to the graphical statistics screen 
(b) continuing to the next simulation 


(c) quitting the progran. 


Ox The Graphical Statistics Sereen 


Upon switching to the graphical statistics 


screen [Figure 3], the numerical statistics will be 


presented in graphical form. It is intended to give the 


user a better insight into the relationships of the 


simulation parameters and the observed variables, by 


representing them in barcharts. 


PROTOCOL 1 
Attackers 
Defenders 
Hitprob. 

No of Attacks: 


per 


Avg 
Che te mmm: a 


Kills 
ee af 2 


'Kills/shot(”) = 32 


Til 
| Expos iM 30 
Acqul 16 


Surv i ii 13 
Intercepted(%)-—16@ 


PROTOCOL 2 


Attackers 


| Defenders 


Hitprohb. 


| No of Attacks: 


Ay k: 
S ho ee Sil rf re AE EAGN | 
Kills 
Mult. 
Kills/shot¢%) = 


T1 

| Expos aE 
Acg 

ed 


Intercepted(4)=-18G6 


CNoumerical statistic <Coontinue <Q>ulit 


Figurew@a. 
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Graphical Statistics 


When the graphical statistics .screen is entered the 
Mest eteme, Olly theslett nalft of the screen is employ- 
ea. After running the simulation a second time, maybe 
with other parameters or using the other protocol, the 
former left side of the screen is moved to the right 
side of the screen and the new statistics are shown on 
the left side. This will allow an easy comparison of 


the new statistics with the pervious ones. 
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IV. CONCLUSIONS 


A graphic simulation of an air defense combat 
scenario is presented in this paper. This animated 
graphical simulation allows the user to gain insight 
into the dynamic behavior of a combat model. 

Even though the model was not intended to solve a 
specific type of scenario, it illustrates several 
conclusions as to what type of target assignment is 
preferable. This depends on the given simulation 
parameters. No communication between the defenders, as 
demonstrated with protocol 1, will generally result in 
a heavier use of defending resources, since multiple 
hits will occur and the defender will only stop 
shooting when all attackers’ are killed. If only the 
time until the last aircraft has survived is of concern 
and no restrictions on ammunition is made, then 
protocol 1may be of a higher effectivness. But when 
the average number of kills per shot is important and 
ammunition is limited, then protocol 2 will bring 
Detterearesul tse 

To find a guideline for other specific problems, 


the user might want to experiment with this simulation 


model. 
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THE AIR DEFENSE SCENARIO SIMULATION 


USER’S GUIDE 


by 
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A. INTRODUCTION 

AIRDEF is a stochastic discrete event Sinulatfoneonm 
an air defense scenario model. It is a simple force-on- 
force scenario, where several defenders, depicted as 
Air Defense Artillery Tanks (ADA), intercept several 
attackers, depicted as an airplane formation. The 
simulation implements a variety of graphic displays to 
demonstrate the events in this scenario, and gives the 
user a choice of a numerical or a graphical display of 
the various statistics, computed in the simulation. 

This manual is intended to assist the user in the 
actual utilization and operation of the program. For 
describing commands and keyboard entries, the following 
notationyis used: 

- ’ ’ single quotes are used whenever the user 
should type a command exactly as shown. 
- < > brackets are used whenever a letter or other 

key should be pressed. 
For Example, ’AIRDEF’ <ENTER> means: type the command 
exactly as it appears between the quotes and press the 
ENTER key. PC-DOS, MS-DOS and AIRDEF make no distinc- 
tion between upper or lower case letters, hence, either 


one may be used. 
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B. MODEL DESCRIPTION 

AIRDEF simulates an air defense situation, where a 
maximum of seven Air Defense Artillery Tanks attempt to 
iMwerecent a “Maximum of nine “aircraft, flown ina 
formation. The purpose is to show the differences 
between two specific target assignment protocols, in 
terms Of derense effectiveness. 

Protocol 1 is the simulation of a random target 
assignment, where the defender randomly choses a target 
for every shot he (fires. ft Sisseantended to™e a 
demonstration of a real world situation, where no 
communication between the defenders or any command post 
exists and all defending resources are used to inter- 
cept the attackers. It will be discovered, that 
multiple hits on the same aircraft will occur, due to 
the lack of coordination in target assignment. 

Pretocol 2 is the simulation of a controlled target 
assignment, where each defender is assigned to a 
different target and holds on to it until a kill is 
made. After hitting his target the defender is reas- 
signed a new target until there are no unassigned 
targets remaining. This is a simulation a real world 
situation, where there is communication between the 
defenders and a command post, which makes controlled 
target assignments. This will result in saving defense 


resources, since there are only as many defenders 


oa 


shooting as there are targets remaining in the forma- 
tion. Since there are no double assignments there are 
no multiple hits. Because of the type of target 
assignment the percentage of kills per shot will be 
higher in protocol 2 than in protocol 1. 
Several assumptions are made to simplify the 
models: 
- constant acquisition time for all defenders 
- constant exposure time for all attackers 
- no second acquisition time after shooting has 
started 
-Sfirst hit is avkiga 
- all subsequent hits are multiple hits 


- no delay between consecutive attacks 
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C. HARDWARE AND SOFTWARE REQUIREMENTS 
1. Hardware 

The simulation has been programmed for an IBM 
Personal Computer (IBM-PC) and uses color graphics. The 
computer must be equipped with a color monitor anda 
color/graphics adapter card, or the simulation would 
not function properly. The computer should have, at 
least, one 5 1/4 inch floppy disk drive and 128 k-bytes 
of random access memory (RAM). The simulation program 
uses BASICA, which requires 64 k-bytes, and an assembly 
language subroutine program, which is loaded into 
memory outside of BASICA. 

The computer must also be able to use IBM 
Advanced Basic BASICA in PC-DOS or MS-DOS or to use 
GW-basic. 

2m > Ott Wee 

ATRDEF is written in Advanced Basic BASICA, 
which is normally provided with the PC-DOS operating 
system. The program will also run under MS-DOS’s BASICA 
and GW-Basic. 

The primary BASIC program AIRDEF.BAS and the 
assembly language subroutine RNGEN.SRT are provided to 
the user on the distribution diskette. In addition to 
these programs, the user must provide the Disk Operat- 
ing System PC-DOS or MS-DOS Version 2.1 (or higher) and 


the Advanced Basic BASICA or GW-Basic in order to run 
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the simulation. Since AIRDEF.BAS uses’ BASIC’s POKE 
command and certain BIOS interrupt calls, there can be 
no guarantee, that the simulation will run properly on 
not 100% IBM-compatible machines. 


3. Preperameriles 
The following files are provided: 


- AIRDEF.BAS....the main program in BASICA 
= RNGEN-. SRI... .- the random number generator 
- AIRDEF.BAT....to start the program in DOS 


- AUTOEXEC.BAT..to auto-start the program 

The first two files are necessary to run the simula- 
tion. The two batch files allow the user to either 
start the simulation once the DOS environment is 
already loaded (AIRDEF.BAT), or to auto-start the 
simulation while the computer is turned on. These two 
files are not necessary, but are for the convenience of 
the user. A source code listing of RNGEN.SRT is 
provided in Reference 2. 

The user must provide the PC-DOS or MS-DOS 


operating system and BASICA or GW-Basic. 
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D. GETTING STARTED 
1. Making an Application Disk 

Before working with the simulation program, it 
is recommended that an application disk be created and 
the original distribution disk be stored ina safe 
place. Even so there are many ways to create an 
application diskette, this manual suggests a bootable 
application diskette, which may be found more con- 
venient for single drive computers. 

To make a bootable diskette follow the PC-DOS 
manual and format a blank diskette by typing at the DOS 
prompt: ’format a:/s’ with the DOS diskette in drive A. 
The system will prompt on the screen to place a new 
GQvekette imto drive A and to hit <ENTER>. The user 
Sieur Take sure that there~is awnew diskette in drive 
A before the <ENTER> key is pressed, otherwise the DOS 
diskette would be erased. The /s option causes DOS to 
transfer the necessary hidden files and the COMMAND.COM 
file to the new diskette to make it self starting by 
turning on the computer with the disk in drive A. The 
Advanced Basic file, called BASICA.COM should be 
transferred by the user from the DOS diskette with the 
COPY command. Finally, the COPY command should be used 
ve Strhansfer “dll «other files from the simulation 


distribution diskette to the new application diskette. 
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ae Starting the Simularion 


If the computer is turned off, place the new 
application diskette into drive A and turn the system 
on. The simulation should start automatically, when the 
AUTOEXEC.BAT file and all necessary program files are 
on the disk. 

If the computer is already turned on and the A> 
prompt is on the screen, simply type ’AIRDEF’ and the 
file AIRDEF.BAT will load BASICA into the memory of the 
computer and the simulation program AIRDEF.BAS will be 
loaded into the BASICA environment and automatically 
SGarnveder 

If, for any reason, the batch files should not 
be utilized, the simulation can also be started by 
typing ’BASICA’ at the DOS A> prompt and from the Basic 
environment by typing ’load"a:airdef’ <ENTER>D and ’run’ 
GEM TEER: 

During execution of the program, AIRDEF 
attempts to load the random number generator RNGEN.SRT 
from the default drive. If the program fails to find 
the file RNGEN.SRT on this drive, it will ask the user 
for the correct drive label, where the file can be 
found. Simply type in the proper drive label and press 
the ENTER key. This problem will never arise, when the 
bootable application diskette is used to start the 


computer . 
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34 Title Screen 


Upon starting the simulation, the first screen 
seen by the user will be the title screen as’_ shown in 
Figure 1. From this point on, the on-screen prompts 


Will guide the user through the run of the simulation. 


GRAPHIC SIMULATION 
of an 
AIR DEFENSE SCENARIO 


by Klaus Schuster 


Submitted in partial fulfillment 
of the requirements for the degree of 


Master of Science in Operations Research 


from the Naval Postgraduate School 
Monterey, California 


Advisors J.D. Esary, P. Purdue 


Press any key to continue... 





Pigume ieee Tne Title: Screen 


a 


E. PROGRAM MAIN MENU 

After leaving the title screen, by pressing any 
key, the next screen will be the program main menu, as 
shown in Figure 2. The options in the program main menu 
allow the user to read the instructions, select the 
default simulation parameter for the assignment 
protocol 1 or 2, change the simulation parameter, get a 
new seed for the random number generator or end the 


program. 


PROGRAM MENL 
<ITonstructions 
<Ll>Default Parameter Protocol 1 
<2>Default Parameter Protocol 2 


<Cohange Simulation Parameter 


<N>ew random number generator seed 


<Q>ulit Program 


Enter your selection: 





Figure 2. The Main Menu 


A summarized version of the program instructtio- 


ns, found in this manual, are available on screen. 
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1. Default Parameter Protocol 1 
If this option is selected by pressing <1>, 
then the simulation starts with the default values of 
the simulation parameters. Protocol 1 is the random 
target assignment protocol. 


These values are: 


- number of attackers = 7 
- number of defenders = 5 
-sepmobability of hit = .2 
- exposure time = 40 
- acquisition time = 30 
- number of repeated attacks = 20 
- assignment protocol = i 
To customize the program, the user could change these 


default values in the program by altering the program 
statements in the AIRDEF.BAS program in lines 12000 to 
12200. The best way to do so, is by listing these lines 
inside the basic environment by typing ’list 12000- 
12200’ <ENTER> and, in the full screen editor, moving 
the cursor to the desired line, changing the value and 
pressing the <ENTER> Key again. To run the simulation 
Peerage chewm@ew Getault values, type ’run’ <ENTER>. 
2. DefaulteParameter Protocol 2 

If this option is selected by pressing <2>, 

then the simulation starts with the same default 


simulation parameters as before when protocol 1 was 
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chosen, with the exception, Jthat Neoweasstenment 
protocol 2 is used to make controlled target assign- 
ments. 
3. Changing the Simulation Parameter 
When <C> is pressed, AIRDEF will ask for the 
desired values of the parameters as shown in Figure 3. 
If the user tries to change the parameters to values 


outside of the given boundaries, the program will 


~~ 


CHANGE SIMULATION PARAMETERS 


Enter # of Attackers Closer ae 
Enter # of Defenders Ciao 
Enter PE hit a plane J] (@...1)9:.5 
Enter Exposure time (34..20@)°38 
Enter Acquisitiontime (@..20@0):1@ 
Enter # of repeated attacks : 1 
Enter Protocol type (1 or 2): 2 





Figure 3. Change Simulation Parameter Screen 


refuse to accept these values and ask for the same 
parameter value again. After entering the new values 
the <ENTER> key must be pressed every time. When all 


values are changed, the simulation starts a new run. 
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ay, peau tne Rawdom Number. Generator Seed 


A new seed for the random number generator can 
be entered, by pressing <N>. The program will prompt 
for a seed value as shown in Figure 4. Allowed seed 
values are only integers in the range from. one to 
2,147,483,646 (which is 231 - 2). Non-integers are 


truncated by the progran. 


SET RANDOM NUMBER GENERATOR SEED 


~~ 


Allowed seed values are integers 
in the range 1... 2,147,483,646 


Enter the new seed value : 6452712395 





Figure 4. Set New Random Number Generator Seed 


If no seed is selected, a default seed is used 
by the RNGEN.SRT and updated with each call for a 
random number. Every time the simulation is started 


from BASIGA by typing ’run’, the seed is set to its 
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initial 
leaving 
broken, 


oe 


at one 
option 


showing 


value. If the simulation is started without 


AIRDEF, the sequence of random numbers is not 
even when a new run from the main menu is made. 
Ending the program 


To quit the program press <Q> at the main menu, 
of the statistics screens or at the iterations 
screen. This will clear the screen and by 


the message in Figure 5, leave the PC in the 


BASICA command mode at 40 Character width. Tie it is 


desired 


<ENTERD, 


to go to 80 character width, type ’screen 2’ 


and to return to DOS, type ’system’ <ENTER>. 


Thank you for using AIRDEF.BASs 


Good Byet 


LLIST 2RUN¢ SLOAD" 4S8SAVE" SCONT?C 





Figure 5S. “En@ing sereen 
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F. THE GRAPHICS DISPLAYS 


= xe sCewarlo Graphics Screen 

mrOEY ssuses a  2raphics  scereen to show the 
animation of the simulation as seen in Figure 6 and 
Figure 7. Both assignment protocols, 1 and_2, work on 
the same type of graphics screen, only the action 
differs. To indicate which protocol is used, it is 
stated on the bottom line of the screen. The actual 
number of the attack flown is indicated in the lower 
right Ccornegeeeeie airplane formatt?onmilies from right 


to left and its speed is determined by the exposure 


time. 
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Figure 6. Graphics Screen Protocol 1 
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A shot is indicated by a small cloud above the ADA 
tanks. A hit is indicated by a fireball in place of the 
airplane. Even if an attacker is already killed, a 
multiple hit is also indicated as a fireball. (Multiple 


hits are only possible with protocol 1). 
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Figure 7. Graphics Screen Protocol 2 





After Witie desired number of attacks are 
completed, or when any key was'7~ pressed, the simulation 
will stop at the end of the last attack and give a 
choice of two different types of statistical displays: 
numerical or graphical. Both present the same informa- 


tion, but in a ditterent save 
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2. Lnemimerical Statistics Screen 
To receive the numerical statistics display, 
press <N> and the screen will clear and yielda 
numerical presentation of the simulation statistics as 


shown in Figure 8. 


PROTOCOL 1 with 24 ATTACKS 
Attackers Exposure time: 
here et Acquisit,.time: 

sShots/attack 
Avg kills/attack 
Avg mult. hits/attack 
Avy survivors/attack 
Avg kills/shot 


Avg time to last survivor 


<Grraphical statistic <Coontinue <¢<Q>u1 ti] 





igure &. Numerical Statistics 


The upper section shows the given simulation 
parameters, such as the type of protocol, the number of 
attacks actually flown, the number of attackers and 
defenders, the probability of hitting an aircraft, the 
exposure and the acquisition time. The rest of the 


screen shows all different kinds of averages computed 
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in the simulation. For a complete description of the 
implications and possible values of the displayed 
averages see chapter B. MODEL ESTIMATORS on pages 12 to 
tes; earlier in this” paper. 

A quick crosscheck of the values can be made, 
by ensuring, that the sum of the averages of kills per 
attack and survivors per attack add up to the number of 
attackers, or checking that the average of kills per 
attack divided by the average of shots per attack 
equals the average of kills per shot, or checking that 
the value of the average time to the last survivor is 
higher than the acqusivtion time, Dut VWower ea; equal to 
the exposure. time. 

On the bottom line of the screen a small menu 
gives the user the options of going to the graphical 
representation of the statistics, continuing to the 
next menu or quitting the program. 

Quitting the program by pressing the <Q> key 
will exit the program and lead the PC into the BASICA 
command mode as shown in Figure 5. 

Continuing the program by pressing <C> will 
cause the iterations option screen, as described in the 
capital F. 5. on page 49 and shown in Figure 11, to be 
displayed. 

Pressing <“G> will change “tne “sceueenu to the 


graphical statistics screen (Figure 9 or Figure 10). 
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3 The Graphical Statistics Screen 
When this screen is evoked the first time™in 


the simulation, the graphical representation utilizes 


only the left half of the display as shown in Figure 9. 


PROTOCOL 1 
Attackers 
Defenders 
Hitprob. 

No of Attacks: 


eh aa Peni, 36 
10 OO TIL 
Kills@ 


Mult. @.5 
Kills/shot¢%)> = 


Time 

E xpos sim st ne HH TREN i 
Acqul ANT 
Suryvl 


Intercepted(%“4)=- 


(N>umerical statistic <¢Cdoontinue <Q>uit 





Figure 9. Graphical Statistics (half) 


This is the graphical representation of the 
numerical statistical values. The upper section shows 
pie en ute wedesa trea model parameters as before, and the 
averages are visualized as horizontal bargraphs. The 
user is enabled to compare the values graphically. The 
Pemeentage of kills per shot and successfully inter- 


cepted attacks are shown numerically. 
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The line atsthe sben con of the screen offers the 
user the option to switch back to the numerical 
statistics screen, to continve to the Iteration. option 
screen or to quit the progran. 

Entering the graphical statistics screen option 
a second time will result in the graphical utilization 
of the full screen (Figure 10). The bargraphs, formerly 
on the left half of the graphical screen, are shifted 
to the right side and the new statistics are displayed 
on the left side. Thus the user is enabled to compare 
the former statistical results with the most recently 


computed simulation results. 


PROTOCOL 2 
Attackers ! Attackers 
Defenders | Defenders 
-Hitprob. Hitprob. 


‘No of Attacks: No of Attacks: 186 


: Ay rm : Pe aie TOL 
Sho te arias Sho tienen 
Kilisim 0 | 2 2} Ss Un 
) vel - 


Mult. 
| Kills/shot¢~) = 32 | Kills/shot¢~) 





Times: es: 

| Excpo s sanmmemmmanyae 38 | p irene 
Accu iit 16 } Acgqutl iil 

Surv 1 13 |] Surv1 
Intercepted(4)-19G ] Intercepted(%4)=-=16GB 


(N>umerical statistic <Crontinue <Qduit 





Figure 10. Graphical Statistics (full) 
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@. the Iterations Option Screen 
Pressing the <C> key will display the itera- 
tions option screen in Figure 11. This allows the user 
to proceed in the program without going back to the 
main menu. Basically, it is intended to start new 
iterations in the simulation, which have the same 
parameters as before, but using another type of target 


assignment protocol. 


New Iterations under: 
<S>ame Protocol 
<O>ther Protocol 


«<M>oain menu 
€Qoult 


Enter your selection: 


<Noumerical statistic <¢<Cdontinue <Q>ult 





Pelboaieae li. iterations Option Screen 


Pressing <S> will start new attacks with the 
same type of protocol. Pressing <0O> will start them 


Wiath the alternative protocol. The random number 
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generator seed will not be reset. This is only the case 
when the program is restarted from the BASIC command 
level. Hereby the user is"able™ to Compare simulate 
runs with different seed values, without changing the 
seed from the main menu. 

In addition to this, the user will still have 
the option of going back to the main menu or quitting 


the program. 


G. PROGRAM MODIFICATIONS 

To alter the program, the user should consult a 
BASIC programming manual of how to change and save the 
modified program. A backup copy of the original is 
essential at this point, otherwise a well running 
program could be lost. 

Permanent changes could be made for the default 
values of the simulation parameters. The default values 
are set in the program section lines 12000 - 12200. 

Eliminating the beep, everytime a hit occurse ecould 
be done by deleting tine 51260 and linew@aZ2tebe 

After studying the » program structure, man ex- 
perienced programmer could add additional types of 
assignment protocols to the model, since the progran, 


structured with subroutines, is open for changes. 
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APPENDIX B 


AIRDEF.BAS PROGRAM LISTING 


TRHHHHHHHHHHHHHHHHHHMHHHHHHHHHHHHHHHMHMHHHHHHHHHHH HH HHH HH 
> * 
7* PLRDEF.BAS V1.0, Klaus Schuster, Aug 1987 * 


> * 


a 
9 


MOS CEEAR, ,16384 ; KEY OFF ; CLS 

oy’ 

QR HHHHH HHH MH HHHHHHHHHHHHHH Toi tialisation *****# HH 
99 ’ 

100 DIM PLANE%(124),TANK%(496),BULL%(10 ), BUM%#( 100) 

105 DIM CLOUD%(100),BLANK%(100 ),FORMATION%( 2000 ) 

115 DIM STAT1%(8010),PT(8),PLNR(9) 


COOP WN rR 


220 GOSUB 5000 "Check for BASICA and color/graphics 

230 GOSUB 6000 ’Print mitlie sé€reen 

250 GOSUB' 10000 *>Load random number generator 
260 GOSUB 11000 ’Print main program menu 

ayer 

S00 TRHHHHHHHHHHHHHHHEHEHEHEHEHHHHH HH HHH new run H#HHH HH MOH 

801 ’ 


Si0) REPEAT = REPEAT + 1 

860 SCREEN 1 

So, COROR 1,0 

867 CLS 

897 ’ 

S98 7 HHH HM HH HH HH HH HH OH OHO OOH OO draw green hills xe *e# HHH HH OH 
e999 ° 

00" CIRCLE(50,300),200,1,.93,2!,.9 
GGiae CERCLE( 230,300 ),220,y1!,2:12,.9 
910 PAINT(30,180),1 

Oise |” 

O11 ” Ht EE ME EOE OEE EE Et draw brown mountains 4H HH OH EH 
914 ’ 

705°C DRCDE( 50), 300,),200,3,1.1,2!,.9 
ee CIRCLE( 230 ,300),220,3,1!,2.12,.9 
930 LINE(0,90)-(40,50),3 

935 LINE(40,50)-(63,90),3 

940 LINE(52,70)-(90,40),3 

945 LINE(90,40)-(146,115),3 

950 LINE(142,110)-(240,50),3 

955 LINE(240,50)-(304,114),3 

Jeor PAMNT(30,70),3 

970 LINE(52,70)-(63,90),0 

980 LINE(142,109)-(146,115),0 

995 IF REPEAT > 1 GOTO 1800 


ol 


998 
999 

1000 
1001 
1002 
1004 
1006 
1008 
1010 
1016 
1018 
1022 
1024 
1026 
1028 
1030 
1040 
1050 
1055 
1097 
1098 
1099 
1100 
etait 
1120 
1.1310 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1245 
1250 
1255 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 


> 2 9 EE HE ME OE OE OE EE EE MO EH 


LINE 
LINE 


(5,8)-(14,8),2 
(22, 11)- (14, 8),2 
(22.11) eae 


draw red plane 


(22,8)-(25, 11) 52 


LANE® 


> > HM Me OE OE EE EE EH 
9 


LINE(24,190)-(40,190 
LINE(60,180)-(40,190 
LINE(60,180)-(60,174 
LINE(56,170)-(60,174 
LINE(56,170)-(50,170 
LINE(49,167)-(50,170 
LINE(46,166)-(40,166 
LINE(32,170)-(40,166 
LINE(32,170)-(30,176 
LINE(24,180)-(30,176 
LINE(24,180)-(20,184 
LINE(24,190)-(20,184 
LINE(36,168 )-(36,166 
LINE(48,168)-(60,152 
LINE(45,166)-(58,150 
LINE(60,152)-(58,150 
CIRCLE(36,154),6,0,4. 
CIRCLE(36,161),6,0,2. 
PAINT(40,175),0 

PAINT(36,162),0 

LINE ( 30707anre e207, 
LINE(50.171 )=(Ca0.a 7 


ooooqoaqoooooo0oc0qoc”oooo 


ee nee << we ee oe oe hl rmhlUhhUlUlUOmUlUOMUlUOMUlUOUlUODUlUOlU 


LINE(40,190)-(36,18 
LINE(60,173)-(36,18 
CIRCLE( 41> Ste 

CIRCLE(47 , 1 8ap cee 
CIRCLE( 52 ,1S4p 27 
CTRELE(57 , 173), 27 


6),1 
6),1 
LINE(20,184 )-(36,184),1 
a) a 
iL 


oe 


9,11),PLANE% 


Oo ~ 
Cr 


draw blue tank 


“) G 
00 « 
COI e 
~ 0 
~] 


HH HMMM MM OM 


HMMM HM MM OH 


1390 
1398 
1400 
1401 
1405 
1410 
1420 
1430 
1440 
1445 
1499 
1500 
1501 
1505 
1510 
1520 
Leaks 
1620 
1621 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1710 
1730 
1750 
17 
1800 
1801 
1805 
1810 
1820 
1830 
1899 
1900 
ESOT 
1910 
FIZO 


1930 


1eno'9 
2000 
2001 
2002 
2005 
2010 


GET (20,150)-(60,190),TANK% 


> de de de OE HE OE OE OE OE OE OE EH EEE EEO 


9 


GET (2,131)-(20,150) 
Cnc Lak 20125141 ) 6,0 
Crieie (1095145 ),5,0 
CURCLE (108,137 ) 76,0 
GET (96,131 )-(114,150), 


draw cloud 


Pom (96,131), BLANKZ,PSET 


TRHMHHHH HHH HHH HHH HHH HHH 


3 


LINE 


draw red bullet 


(98,20)-( 99,21),2,BF 


GET (98,20)-( 99,21),BULL% 
Put (98,20 ),BULLS 


TF HHHH HH HHH HH MH OH 
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PSET 
DRAW 
DRAW 
DRAW 


Ca 0) ) 

Oe, oS) 

"ho m0 7oemeo ,?st2:e2sf2:e3 :m2954" 
wees US Mls, 3,03; 23;m3,0" 


PAENT (i555), 2 


PoE. 
DRAW 


( 10x, 4 ) 
‘per os: Mmroyoeveloroe:mils,3;g2s;m10,42 


PAINT (15,4),3 
GET (0,0)-(29,9),BUM% 
PUT (0,0),BUM% 


7HHHHHH HHH MMH OH OH 


3 


put T tanks on screen 


FOR [I=1 TO T 
X=20+40*(I-1) 
PUT (X,150),TANK%,AND 


NEXT 


TH HMMHHHHHH HHH HH HH HHH HH HH HK 
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I 


write footer 


WOCATE 2a, 2 


draw red/brown fireball 


He HHH HM OM 


He HH MH HOM 


HH HHHM HHH 


HH HMM MHH HH 


H#*# HHH HM OK 


IF SIM = 1 THEN PRINT USING "Protocol # 
(Random selection)";SIM; 
IF SIM = 2 THEN PRINT USING "Protocol # 


9 


THHHMHHHHHHHH HHH HH HHH HH HH 
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LOGALE 25,36: 
cu .= 
FOR I=1 TO PL 


xX = 


(Controlled assignment )";SIM; 


PRINT USING 
10 


53 


animate plane 


H*e HM HHH OK 


"NHHHH" s RUNCOUNT+1; 
init position of formation 
’get positions of single planes 


2020 


2030 
2040 
2050 
2060 


2062 
2065 


2066 
2067 
2068 
2070 
2080 
2085 


2088 
2089 
2090 
2305 


2310 
2320 
2330 
2340 
2350 


2500 
2505 


2506 
2507 
2508 
2509 
2510 
2515 
2520 
2925 
2530 


2935 


2547 
2548 
2550 
Bowe 
2554 
2955 


ON I GOSUB 5100,25200,25300,25400, 25500, 

25600 ,25700, 25800 ,25900 
PUT (XP,YP),PLANE% ’put plane on screen 
NEXT I 
GET (200,10)-(319,39),FORMATION4S 
PUT(200,10),FORMATION% 


*’store formation 
"remove formation 


FOR I = 1 TO PL: PLNR(I) = 500: NEXT "init plane 
not shot = 500 
FOR I = 1 TO T:PT(I) = I: NEXT ’init assign plane 
to tank 

RUNHIT = O: ROUND = O: AS=T: L=T * dale ts 
IF SIM=2 AND PL<T THEN : L=PL 

RUNCOUNT = RUNCOUNT + 1 "count runs 
FOR X=200 TO 1 STEP -PLSPEED *’move formation 


PUT (X,10),FORMATION4Z, PSET 
IF X>200-ALLOC THEN : FOR DELAY=1 TO 100 :NEXT: 

GOTO 2310 ’wait with shoting 
; ROUNDNR=ROUNDNR+1 *’count rounds 
: GOSUB 52000 
GOSUB 51000 
PL GOTO 2500 ’if all planes hit, 

end round 


ROUND=ROUND+1 
IF SIM = 2 THEN : 
IF SIM = 1 THEN : 
IF RUNHIT >= 


NEXT X 

FOR I=1 TO PL 
IF PLNR(I)=500 THEN: SURV=SURV+1 
NEXT I 

PUT (X+PLSPEED,10),FORMATION% 


"count survivor 


"remove formation on 


end of screen 

IF INKEY$ <> "" GOTO 2510 ’if any key hit, end 
round 
IF RUNCOUNT < RUNNR GOTO 2000 ’if not all attacks 
done, new run 


FOR DELAY = 1 TO 1000: NEXT "wait a second 


> EE HE HE OE EE EE HE EE EE OE EOE 


SOUND 90,2:SOUND 200,2:SOUND 90,2:SOUND 200,2 
LOCATE 1,1 

PRINT "<N>umerical or <G>raphical statistics" 
GOSUB 20000 


end of animation 33 === 


IF RESPONSES="n" OR RESPONSES="N" THEN GOSUB 
30000 

IF RESPONSES$="g" OR RESPONSES="G" THEN GOSUB 
35000 


CLS 
LINE (78,45 )-(258,147),2,B 
LOCATE 8,12 


PRINT "New Iterations under:" 
LOCATE 10,12 
PRINT "<Sdame Protocol" 


04 


AAD, / 
25908 
ibid 9 
2560 
2.00 1 
ooo 
2563 
2564 
2 SOO 


2566 
2570 


ono 
2580 
4999 
5000 
9001 
5010 
5020 


5030 
59040 


5050 


5060 
5070 
9080 
5090 
59100 
59110 
5120 
9130 
5140 
so 79 
6000 
6001 
6010 
6020 
6030 
6040 
6050 
6060 


6070 
6080 


6090 


BOCATE, 12,12 


PReNr  "<O>ther Protocol" 

WOGCATE. 15,12 

PRINT "<M>ain menu" 

LOCATE 17,12 BRUNT "<Q>uit" 

BOCATE 21,12 PRINT "Enter your selection:" 


GOSUB 20000 
IF RESPONSES$="s" 
IF RESPONSES$="0" 


OR RESPONSES$="S" 
OR RESPONSES$="0" 


GOTO 2570 
THEN: IF SIM=1 


THEN SIM=2:ELSE SIM=1:GOTO 2570 
IF RESPONSES="q" OR RESPONSES="Q" GOTO 40000 
SURV=0 HIT=0 ROUNDNR=0 SHOT=0 : DBL=0 
RUNCOUNT=0 "reset 


IF RESPONSES="m" 
GOTO 800 


OR RESPONSE$S="M" GOTO 11000 


’start new runs 


7 RHHHM HH 


, 


DEF SEG = 0 
IF (PEEK(&H410) AND &H30) <> &H30 THEN DEF SEG 
GOTO 5070 


HHH MM MM OH 


BASICA and Colorgraphics check 


MOCATESsG, |): PRON] "Sorry ... " 

PRINT “you do not have the color/graphics monitor 
adapter!" 

PRINT "This simulation uses graphics and requires 


that adapter." 
DEF SEG: END 


ON ERROR GOTO 5080 PLAY plo" GOTO 5130 


WIDTH 80 : CLS LOCATE 3,1 

PRINT "This simulation uses advanced BASIC." 
PRINT "Return to DOS by typing ’SYSTEM’ ," 
PRINT “load BASICA and reload this program" 
END 

ON ERROR GOTO O 


RETURN 


THHHMHHHHHHHHHHMHH HHH MH HM HH 
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HHMNRMNMMN HHH 


Title Screen 


SCREEN O,1 COLOR 14,1,1 : WIDTH 40 CLS 
LOCATE 2,12 PRINT “GRAPHIC SIMULATION" 
LOCATE 4,19 PRINT "of an" 
LOCATE 6,11 PRINT "AIR DEFENSE SCENARIO" 
LOGATE 9,13 PRINT "by Klaus Schuster" 
WOCATE 14,5 PRINT "Submitted in partial 
ful iment. 
LOCATE. 1572 PRINT “of the requirements for the 
degree of" 
LOCATE 17,1 PRINT “Master of Science in 
Operations Research" 
LOCATE 19,4 PRINT "from the Naval Postgraduate 


School" 


55 


LOCATE 20,11: PRINT "Monterey, California" 

LOCATE 22,6 PRINT “Advisors J.D. Esary, P. 
Purdue" 

LOCATE 25,2 PRINT "Press any key to 

continue..."; 

GOSUB 20000 

RETURN 

> 2 dE dE dE dE HE 2 9 HE EE EE EH HH OH HH OHH OH Instructions oe 24 0 HH OH 

SCREEN 0,1 WIDTH 40 CLS 


;: COLOR 4: 


PRINT “INSTRUCTIONS FOR THE MENU" 


LOCATE. 2765: 
PRINT BORDERS 
LOCATE 5,2 
PRINT " This program is an animated graphic" 
LOCATE 6,2 

PRINT “simulation of an air defense scenario" 
LOCATE 7,2 

PRINT "in which some attacking aircraft are" 
LOCATE 8,2 

PRINT “intercepted by several defenders." 
EOGATE 10,2 

PRINT " Two target assignment protocols are " 
WMOCATE 11,2 

PRINT "possible:" 

LOCATE 13,2 

PRINT " (1) random selection by the defender" 
LOCATE 14,2 

PRINT " (2) controlled target assignment" 
LOCATE 18,2 

PRINT " The program menus will guide you." 
LOCATE 2S rrr 

PRINT "Press any Key to continue ..."; 

GOSUB 20000 

CLS 

EOCATE t32 

PRINT "Default parameters for both protocols:" 
BOCA TE 333.2 

PRINT “" Number of attackers 

LOCATE 4,2 

PRINT " Number of defenders 

LOCATE 5,2 

PRINT ©" Probability sof has 

LOCATE 6,2 

PRINT " Exposure time 

LOCATE 732 

PRINT " Acquisition time 

LOGARE S72 

PRINT " Number of repeated attacks: 
LOCATE 2 Ie2 

PRINT "Options of the main menu:" 


NN 


HNN 


non 


40" 


30" 


20" 
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7147 
7148 
7149 
7150 
TLSL 
7 hoe 
7155 
7156 
7160 
7161 
7165 
7166 
ciao 
CTs 
ie 
7176 
7180 
TVS. 
7185 
7186 
To 7 
7198 
7200 


7201 
Tad 
7205 
7206 
7210 
72am 
7219 
7216 
7220 
Ven 
7229 
Cao 
aa 
CeoL 
726 5 
7236 
7240 
7241 
7245 
7246 
7250 
7a2o1 
7499 
7256 
7260 


LOGATE 13,2 


PRINT "Pressing <I> gives the above" 
LOCALTE.1¢,2 

Pein] ™ PiStruetion Sereens” 
LOCATE 15,2 

PRINT "Pressing <1> starts simulation with" 
LOCATE 16,2 

Prine ™ defaults in protocol 1" 
LOCATE. 17.2 

Pheaent Ee ressing <Z> Starts simulation with" 
LOCALE a1:8,.,.2 

Pree) " defaults in protocol 2" 
LOCATE 19,2 

Prag Seeressing <C> allows alteration of" 
LOCATE 20,2 

PRIN" simulation parameters" 
LOCATE 21,2 

PRINT "Pressing <N> allows alteration of" 
LOCATE ..22,2 

PRINT ™ random number seed" 
LOCATE 23,2 

PRINT "Pressing <Q> quits the program" 
BOCEATE 25,1 : 

PRIT “Press any Key to continue ..."; 
GOSUB 20000 

CLS 

LOCATE 1,2 

Prime “The Statistics Screens:" 

LOGATE 3,2 

PRIN’ “To show the statistical results," 
LOCATE 4,2 

PRINT "the program has two options:" 
EOCZTE.6,2 

PRET " @> Numerical statistics screen" 
COUAEE 7,2 

PRINT " <G> Graphical statistics screen" 
LOCATE. 9,2 

PRINT "Both present the same information." 
YOCATE s1.1., 2 


PRINT "Upon entering the graphical screen a" 
IGCARE 12,2 


PRINT "second time, the previous screen will" 
LOCATE 13,2 

PRINT “be shown on the right side." 

L@OCAGE 15,2 


PRINT "Continuing from the statistics screens" 
LOCATE 16,2 

PRINT "leds to the iterations option screen" 
L@GCATE 18,2 


a 


7 Zoi 
7265 
7266 
7270 
ee 
7279 
7206 
7280 
7281 
728959 
7286 
7200 
T2291 
7300 


7301 

7302 

7500 

J 

10000 
10001 
10010 
10015 
10020 
10030 
10032 
10034 
10040 
10050 
10060 
10070 


10080 
10090 
10499 
10500 
10501 
10510 
10520 


10530 
10540 
10550 
10560 


10570 
10580 


PRINT 


"Pressing <S> starts simulation under " 


LOCATE 19,2 


BREN 


a same default parameters" 


LOCATE 20,2 


PRINT 


u as before" 


LOGAPTE 2172 


PRINT 


"Pressing <O> starts simulation under " 


LOCATE 22,2 


PRINT 


other protocol than before" 


LOCATE 32342 


PRINT 


"Pressing <M> goes back to main menu " 


LOCATE 24,2 


PRINT 


"Pressing <Q> squits the program: = 


LOCATE 25,1 


PRINT 


"Dress any key to £ZO pack to main menu"; 


GOSUB 20000 


CLS 


GOTO 11010 


"return to main menu 


HHH HRN 6hlOad random number generator "~~ 72. 
RNGEN=0:U!=0 
ON ERROR GOTO 10050 ’file not found 


DEF SEG = &H1A00 
BLOAD DRIVES+"rngen.srt",0 


A# 


3245678! 


’default seed 


GOTO 10570 
RETURN 


IF ERR <>53 THEN 


ON ERROR GOTO O 


CLS: LOCATE 3,1 


INPUT "On which drive could RNGEN.SRT be 
found?";A$ 

DRIVES =A$+":" 

RESUME 10020 

"HHH MHHRHKHN ©6Change random Number SsScCCcduye a. 2: * 

COLOR 14,0,0 : CLS 

LOCATE 3,4 PRINT "SET RANDOM NUMBER GENERATOR 
SEED":PRINT BORDERS 

LOCATE 7,3 PRINT "Allowed seed values are 

integers" 
LOCATE 9,3 PRINT “in, the range e ia 
2,147,483,646" 
LOCATE 13,2 INPUT "Enter the new seed value 


" A# 


IF A#<1 OR A#>2147483646# THEN LOCATE 13,2:PRINT 


STRING$(39,32):GOTO 10550 


DEF SEG = &H1A00 


Al! 
A2! 


INT(A#/16777210# ): 


= INT((A#-A1!*167772104 )/65536! ) 


98 


10600 


10610 
10620 
10630 


10640 


10650 
10660 
10999 
11000 
11001 
11005 
11010 
11020 
11030 


11040 
11050 


11060 
11070 
11075 


11080 
11090 
11100 
11110 
11120 


11999 
12000 
12001 
12010 
12020 
12030 
12050 
12060 
12070 
12080 
12085 
12090 
20 0 
12200 
i299 


RNGEN’s seed 


‘poke "the seed’s uppen, 2 bytes into 
; storage 


POKE s@H164 ,Ad! :.POKE &H163,A2! 
A# = A#-A1!*16777210#-A2!*65536! 


Al! = INT(A#/256) 
A2! = A#-A1!*256 
"poke the seed’s lower 2 bytes into RNGEN’s seed 
storage 
POKE &H162,A1! POKE &H161,A2! 
GOTO 11010 "return to main menu 
FRHHKHHHH HHH HHH KH HHH HK Main Program Menu H#HKKR KKK HK 
INIT = O 
BORDERS = STRINGS(40, 223) 
Scr Ofte: COLOR 14,3,0 WIDTH 40 CLS 
LOCATE 3,14 : PRINT “PROGRAM MENU" 
PRINT BORDERS 
LOGATE 5,3 PRN "<lonstructions"™ 
LOGATE 7,3 PRINT “"<1>Default Parameter 
Protocol 1" 
LOCATE 9,3 PRINT “<2>Default Parameter 
Protocol 2" 
LOCATE 11,3 PRINT “<Cohange Simulation 
Parameter" 
COLEATE 13,3 PRINT "<N>ew random number 
generator seed" 
LOCeITE 15 3 PRIM" <O>uit Program” 
DOGATE 18,3 Pernt “Enter your selection: "; 


GOSUB 20000 *"get keyboard response 
A® = INSTR("IN12CQin12cq" ,RESPONSES ) 
IF A%® = O THEN 11010 ELSE ON A%&% GOTO 7000, 
10500,12000,12000,13000,40000, 
7000,10500,12000,12000,13000,40000 
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7 HHKHHH HH 


T = 5 
Ply= «7 
HITPROB = .2 
EXPOS = 40 
RUNNR = 20 
AIMTIME = 
SIM = 1 

IF A% = 4 OR AS = 10 THEN SIM = 2 
ALLOC = (200*AIMTIME )/EXPOS 
PLSPEED = 200/EXPOS 

GOTO 800 


, 


Defaulae Simulation parameter “******* 


i Oe 00 


30 


59 


13000 
13001 
13010 
13050 
13060 
13065 
13070 


13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 
13170 
13180 
13190 
13200 
13210 
13220 
13230 
13240 
13250 
13260 
13270 


13300 
Lo 


7HHHHM HH 
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SCREEN 0,1 


Change simulation parameters **# ## Hx 


COLOR 15,5,0 : CLS 
"CHANGE SIMULATION PARAMETERS" 


LOCATE 3,6 PRINT 
PRINT BORDERS 
MSG1$ = "Can not be accepted! Please try again." 


LOCATE 6,1 : INPUT "Enter #4 of Attackers 
C1 2a) SoBe 
IF PL<1 OR PLOY THEN LOCATE 23,1: PRINT MSG1$: 
LOCATE 6,1:PRINT STRINGS$(40,32): 
GOTO 13070 
LOCATE Zari: 
LOCATE Sei _: 
INPUT "Enter # of Defenders ( Dee 7 oa 
IF T<1 OR T>7 THEN LOCATE 23,1:PRINT MSG18$: 
LOCATE 8,1:PRINT STRINGS$( 40,32): 


GOTO 13070 


PRINT STRINGS$(40,32); 


LOCATE 23,1 
LOCATE 10,1 


PRINT STRING$( 40,32); 
INPUT "Enter P[ hit a plane ] 
(0...1):",HITPROB 
IF HITPROB<O OR HITPROB)1 THEN LOCATE 23,1: 
PRINT MSG1$:LOCATE 10,1:PRINT STRING$(40,32): 
GOTO 13130 
LOGATE 23, 1 
EOCATE  °$12.,.1° 


PRINT STRINGS$( 40,32); 
INPUT "Enter Exposure time 
(30. .2@0@0" , EXPOS 
IF EXPOS<30 OR EXPOS>200 THEN LOCATE 23,1: 
PRINT MSG1$:LOCATE 12,1:PRINT STRINGS$(40,32): 
GOTO 13160 
LOCATE. 2341 
LOCATE 2:45. 


PRINT STRING$(40,32); 
INPUT "Enter Acquisitiontime 
(0..200):",AIMTIME 
IF AIMTIME<O OR AIMTIME>200 THEN LOCATE 23,1: 
PRINT MSG1$:LOCATE 14,1:PRINT STRINGS$(40,32): 
GOTO 13190 
LOCATE S23 
LOCATE 16,1: 


PRINT STRINGS$(40,32); 
INPUT "Enter # of repeated attacks 


PR UNNR 
LOCATE 18,1: INPUT "Enter Protocol type ior 
2a) eS iM 


IF SIM<1 OR SIM>2 THEN LOCATE 23,1:PRINT MSG1$: 
LOCATE 18,1:PRINT STRING$(40,32): 
GOTO 13230 
LOCATE 23,1 PRINT STRINGS$( 40,32); 
ALLOC = (200*AIMTIME)/EXPOS 
PLSPEED = 200/EXPOS 
GOTO 800 
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60 


20000 
20001 
20010 
20020 
20030 
24999 
25000 
25001 
25100 
29110 
25120 
25200 
25210 
Ziatc 20 
25300 
25310 
25320 
25400 
25410 
25420 
25500 
25510 
25'512'0 
25600 
25610 
25620 
25700 
2 aleO 
a baae'O 
25800 
25810 
25820 
25900 
25910 
25920 
Zn9'9 
30000 
30001 
30005 
30010 
30020 


30022 


30025 


> dt He HE HE HEE HE HE HEE EE EO 


’ 


DEF SEG : 
RESPONSES 


RETURN 


Get keyboard response 


POKE &H6A,0 


7 HHHMHH HMMM 
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XP X 
ar ie 
RETURN 
XP = X 
Trae 
RETURN 
XP = X 
ieee Y 
RETURN 
XP = X 
YP = Y 
RETURN 
XP = X 
ye ¥ 
RETURN 
XP = X 
Yrs =a 8 
RETURN 
XP = X 
YP = Y 
RETURN 
XP = X 
reo Y 
RETURN 
XP = X 
Ye = Y 
RETURN 


it il 


PH HH HH HH HH HH HH HH 
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CLS 


~ 


10 


30 


30 


20 


60 
10 


30 
10 


60 


60 
20 


20 


INKEY$ 


IF RESPONSES = "" 


get coordinates for plane 


VIEW SCREEN (1,8)-(318,168),0,2 
E@CATE 3,7:PRINT USING 


—— — ee oo meee ieee 


POCATE 572 


numerical statistics 


HHHMHMH HH HM 


THEN 20020 


HHHHMHHH KH 


HHHHH MH HM 


"PROTOCOL # with #### ATTACKS";SIM;RUNCOUNT 


30030 PRINT USING 


"Attackers : # Exposure time: ###";PL; 
EXPOS 


30032 L@GATE 6,2 


61 


30035 


30039 
30040 
30044 
30045 


30049 
30050 


30059 
30060 


30069 


30070 


30079 
30080 


30089 
30090 


30099 
30100 


30150 
30180 


30190 
30200 


30210 


30240 
34999 
35000 
35001 
35010 
35020 
35025 
35030 
35035 
35040 


PRINT USING 


"Defenders : # Acquisit.time:###";T; 


AIMTIME 
EOCATE ¢32 
PRINT USING "Hitprob. :.##";HITPROB 
LOCATE 8,2 
PRINT 
LOCATE 20ReZ 
PRINT USING 
"Avg No of shots/attack =H### .##"; 
SHOT /RUNCOUNT 
LOCATE "#242 
PRINT USING 
"Avg No of kills/attack = #H.#H#"; 
HIT/RUNCOUNT 
LOCATE 14,2 
PRINT USING 
"Avg No of mult.hits/attack = ##.##"; 
DBL/RUNCOUNT 
LOCATE 16,2 
PRINT USING 
"Avg No of survivors/attack = ##.##"; 
SURV /RUNCOUNT 
LOCATE 18,2 
PRINT USING 
"Avg No of kills/shot = #.###"; 
HIT/SHOT 
LOCATE 20,2 
PRINT USING 
"Avg time to last survivor =###.##"; 


(ROUNDNR/RUNCOUNT ) + AIMTIME 


VIEW 
LOCALE. 25 54 
PRINT “<G>raphical statTrstic X<© ontinue <r; 


GOSUB 20000 


IF RESPONSE$="g" OR RESPONSES="G" THEN CLS : 
GOSUB 35000 
IF RESPONSE$="q" OR RESPONSES="Q" THEN : 


GOSUB 40000 
RETURN 


THHHHMHH HHH HH HH HK 
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SCREEN 1 COLOR 1,0 : CLS 

IF GRPH = 1 THEN PUT (159,1),STAT1% 
LINE (1 54:)—(ilge) 1593258 

LOCATE 2,95 PRINT USING"PROTOCOL #";SIM 
LOCATE 3,2 PRINT ee a 
LOCATE 4,2 PRINT USING "Attackers 


HHHH HHH HK 


graphical statistics 


62 


35050 
35060 
35065 


35070 
35075 
35080 
35090 
35100 
35110 
35120 
35130 
35140 
35150 
35160 
35170 


35175 
35180 
35190 
35200 
35210 
35220 
35230 


35240 
35250 
35260 


35270 


aoc / 5 
oie 7 / 
35280 


35290 
35300 


35310 


36000 
a9997 
a799S8 
39999 
40000 
40005 
40010 
40011 
40015 
40025 
40030 


LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 
LOCATE 


PRINT USING 
PRINT USING 
PRINT USING 


oP RUN T 


PROENT 
PRE 
PRINT 
PRINT 


"Defenders Ae 
THieuprob. 2. ";HITPROB 
"No of Attacks: ####"; 
ee 

"Avg per Attack:" 

"Shots" 

ees 

“Wi aie 


LINE (48, 80)- Lizene? ),1, BE 
LINE (48,88)- (((80/SHOT )*HIT )+48,95),2,BF 
LINE (48,96 )-(((80/SHOT)*DBL)+48,103),3,BF 


LOCATE 
LOCATE 
LOCATE 
LOCATE 


LOCATE 
LOCATE 
LOCATE 
LOCATE 


11,16 
T2310 


3, 2 : 


Lac 


Ler 
noc 
ad 
ee 


PRINT USING 
PRINT USING "##.#";HIT/RUNCOUNT 
PRINT USING "##.#";DBL/RUNCOUNT 


PRINT 


PRINT 
PRigiT 
PR UR 
PRINT 


"HHH" ; SHOT /RUNCOUNT 


USING "Kills/shot(%) =###"; 
100*HIT/SHOT 
“Times. 
"Expos '" 
"Acqui ? 
rourvi" 


LINE (48, i44)- (eZ eres |), 1.) BE 
LINE (48,152 )- (( (80/EXPOS )*AIMTIME )+48,159),2,BF 
LINE (48,160 )-(((80/EXPOS )*((ROUNDNR /RUNCOUNT )+ 


LOCATE 
LOGAGE 
LOCATE 


LOCATE 


Loner G 
20,16 
ee 6 


23, Cc 


PRINT USING 
PRINT USING 
PRINT USING 


AIMTIME ) )+48,167),3,BF 


"##HH#"; EXPOS 
"HHA#" > AIMTIME 
"HERE ; 


(ROUNDNR/RUNCOUNT )+AIMTIME 


PRINT USING "Intercepted(%)=###"; 


100*(1-(SURV/(RUNCOUNT*PL) ) ) 


GET (1,1)-(158,199),STAT1% 


GRPH = 
LOCATE 


1 
coe) 


GOSUB 20000 


IF RESPONSES= 


PRINT 


Wy) " 


OR RESPONSES= 


"<N>umerical statistic 
<Coontinue <Qoduit"; 
"NN" DGHEN CLS *: 
GOSUB 30000 


IF RESPONSES="q" OR RESPONSES="Q" THEN 


RETURN 


9 DE DE DE DE DE DE DE DE DE DE DE ODE HE OE OE HE OE OE OE HE OH HE OH 


9 


CLS 


GOSUB 40000 


He eH HH HH 


Exit program 


LOCATE12,4:PRINT"Thank you for using AIRDEF.BAS " 
WOCAD ER wid ko: PRINI"Good Bye!" 
FOR DELAY = 


KEY ON 


MOCATE 20,1 


END 


1 Toei o0Gc;: 


NEXT 
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90999 
51000 
51001 
51020 
51030 
51040 
51050 
51060 
51070 
51080 
51090 
51100 
51110 
9 Lia. 0 
51130 
51140 
51150 
51160 
51170 
51180 
51190 
51200 
91210 


51220 
51230 
51240 
51250 


51260 
51270 
51280 
51290 
51300 


51320 
51400 
51999 
52000 
52001 
52010 
52020 


52030 
52040 
52050 
52060 
52070 
52080 
592090 
92100 


’ 


> HH Ot EM HEH HH OH HOH HH OH OH 


POR] t=] TO L 


protocol sim 1 *### # * H% 


’put clouds for shooting tanks 


XC = 18+40*IT 
XB = 22+40*]I 
PUT (XC,131),CLOUD%,PSET 


PUT (XB,147),BULL%, PSET 
NEXT I 

FOR I=1 TO L 

XC = 18+40*I 

XB = 22+40*1I 

PUT (XC,131),BLANK%,PSET 
NEXT I 

FOR I=1 TO T 

SHOT = SHOT + 1 

DEF SEG = &H1A00 

CALL RNGEN(U! ) 


’remove clouds 


’for every shot 
"count shots 


"get rnd # 


IF U! >» HITPROB GOTO 51320 "if no hit next tank 

CALL RNGEN(U! ) 

TP = CINT(U!*PL + .5) 

IF PLNR(TP) < ROUND GOTO 51180 

IF PLNR(TP) = ROUND THEN: DBL=DBL+1:GOTO 51250 ’if 
shot this round,dbl hit 

HIT = HIT + 1 -count total hits 


RUNHIT = RUNHIT + 1 -’count hits this round 
PLNR(TP) = ROUND "set pl shot in round# 
ON TP GOSUB 25100,25200,25300,25400,25500, 
25600 ,25700,25800 ,25900 

SOUND 90,2 ’sound and bum% 
PUT (XP,YP),BUM%,PSET 
FOR DELAY = 1 TO 500 
PUT (XP,YP),BUM% 
GET (X,10)-(X4+119,39),FORMATION%S "get new 

formation w/o shot planes 


NEXT 


NEXT I 
RETURN 


THHHHHHHHH HHH HHH HHH HHH 


> 


FOR I=1 TO L 


protocol sim ™2gae** * time * 


"put clouds to tank 


IF PT(I) = O GOTO 52100 "if no assignmentemext 
tank 

XC = 18+40*I 

XB = 22+40*I 

PUT(XC,131),CLOUD%, PSET 

PUT(XB,147),BULL%,PSET 

FOR DELAY = 1 TO 100 : NEXT 

PUT(XC,131),BLANK%, PSET ’remove cloud 

SHOT = SHOT + 1 -’count shots 

NEXT I 
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92110 
92115 


92120 
52130 
92140 
52150 
92160 
52170 


52180 
9219:0 
52200 
a2 210 
52220 


52225 
52230 
92240 


52260 
92270 


FOR I = 1 TO L : 

IF PT(I) = 0 GOTO 52260 "if no assignment next 
tank 

DEF SEG = &H1iAOO 

CALL RNGEN(U! ) ’'pet rnd # 


IF U! >» HITPROB GOTO 52260 
HIT = HIT + 1 -count total hits 
RUNHIT = RUNHIT + 1 "Count. Nits 
ON PT(I) GOSUB 25100,25200,25300,25400,25500, 
25600 , 25700, 25800 ,25900 

>’sound and bum% 


"if no hit next tank 


SOUND 90,2 
PUT (XP,YP),BUM%,PSET 
FOR DELAY = 1 TO 500 NEXT 
PUT(XP,YP),BUM% ’remove bum and plane 
GET(X,10)-(X+119,39),FORMATION% ’pet new 
formation w/o shot planes 
ROUND ’set pl shot in round# 
’set tank free for new assignment 
AS = AS + 1 PT(I) = AS ’get new 
assignment for tank 


PLNR(PT(I)) = 
PT(I) = 0 
IF AS < PL THEN 


NEXT I 
RETURN 
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